home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
FROMUTS
/
CDUNGEON
/
!CDUNGEON
/
c
/
DVERB1
< prev
next >
Wrap
Text File
|
1991-05-20
|
10KB
|
448 lines
/* TAKE-- BASIC TAKE SEQUENCE */
/*COPYRIGHT 1980, INFOCOM COMPUTERS AND COMMUNICATIONS, CAMBRIDGE MA. 02142*/
/* ALL RIGHTS RESERVED, COMMERCIAL USAGE STRICTLY PROHIBITED */
/* WRITTEN BY R. M. SUPNIK */
#include "funcs.h"
#include "vars.h"
/* TAKE AN OBJECT (FOR VERBS TAKE, PUT, DROP, READ, ETC.) */
logical take_(flg)
logical flg;
{
/* System generated locals */
integer i__1;
logical ret_val;
/* Local variables */
integer oa;
integer x;
ret_val = FALSE_;
/* !ASSUME LOSES. */
oa = objcts_1.oactio[prsvec_1.prso - 1];
/* !GET OBJECT ACTION. */
if (prsvec_1.prso <= star_1.strbit) {
goto L100;
}
/* !STAR? */
ret_val = objact_();
/* !YES, LET IT HANDLE. */
return ret_val;
L100:
x = objcts_1.ocan[prsvec_1.prso - 1];
/* !INSIDE? */
if (prsvec_1.prso != advs_1.avehic[play_1.winner - 1]) {
goto L400;
}
/* !HIS VEHICLE? */
rspeak_(672);
/* !DUMMY. */
return ret_val;
L400:
if ((objcts_1.oflag1[prsvec_1.prso - 1] & TAKEBT) != 0) {
goto L500;
}
if (! oappli_(oa, 0)) {
i__1 = rnd_(5) + 552;
rspeak_(i__1);
}
return ret_val;
/* OBJECT IS TAKEABLE AND IN POSITION TO BE TAKEN. */
L500:
if (x != 0 || qhere_(prsvec_1.prso, play_1.here)) {
goto L600;
}
if (objcts_1.oadv[prsvec_1.prso - 1] == play_1.winner) {
rspeak_(557);
}
/* !ALREADY GOT IT? */
return ret_val;
L600:
if (x != 0 && objcts_1.oadv[x - 1] == play_1.winner || weight_(0,
prsvec_1.prso, play_1.winner) + objcts_1.osize[prsvec_1.prso - 1]
<= state_1.mxload) {
goto L700;
}
rspeak_(558);
/* !TOO MUCH WEIGHT. */
return ret_val;
L700:
ret_val = TRUE_;
/* !AT LAST. */
if (oappli_(oa, 0)) {
return ret_val;
}
/* !DID IT HANDLE? */
newsta_(prsvec_1.prso, 0, 0, 0, play_1.winner);
/* !TAKE OBJECT FOR WINNER. */
objcts_1.oflag2[prsvec_1.prso - 1] |= TCHBT;
scrupd_(objcts_1.ofval[prsvec_1.prso - 1]);
/* !UPDATE SCORE. */
objcts_1.ofval[prsvec_1.prso - 1] = 0;
/* !CANT BE SCORED AGAIN. */
if (flg) {
rspeak_(559);
}
/* !TELL TAKEN. */
return ret_val;
} /* take_ */
/* DROP- DROP VERB PROCESSOR */
/* DECLARATIONS */
logical drop_(z)
logical z;
{
/* System generated locals */
logical ret_val;
/* Local variables */
logical f;
integer i, x;
ret_val = TRUE_;
/* !ASSUME WINS. */
x = objcts_1.ocan[prsvec_1.prso - 1];
/* !GET CONTAINER. */
if (x == 0) {
goto L200;
}
/* !IS IT INSIDE? */
if (objcts_1.oadv[x - 1] != play_1.winner) {
goto L1000;
}
/* !IS HE CARRYING CON? */
if ((objcts_1.oflag2[x - 1] & OPENBT) != 0) {
goto L300;
}
rspsub_(525, objcts_1.odesc2[x - 1]);
/* !CANT REACH. */
return ret_val;
L200:
if (objcts_1.oadv[prsvec_1.prso - 1] != play_1.winner) {
goto L1000;
}
/* !IS HE CARRYING OBJ? */
L300:
if (advs_1.avehic[play_1.winner - 1] == 0) {
goto L400;
}
/* !IS HE IN VEHICLE? */
prsvec_1.prsi = advs_1.avehic[play_1.winner - 1];
/* !YES, */
f = put_(1);
/* !DROP INTO VEHICLE. */
prsvec_1.prsi = 0;
/* !DISARM PARSER. */
return ret_val;
/* !DONE. */
L400:
newsta_(prsvec_1.prso, 0, play_1.here, 0, 0);
/* !DROP INTO ROOM. */
if (play_1.here == rindex_1.mtree) {
newsta_(prsvec_1.prso, 0, rindex_1.fore3, 0, 0);
}
scrupd_(objcts_1.ofval[prsvec_1.prso - 1]);
/* !SCORE OBJECT. */
objcts_1.ofval[prsvec_1.prso - 1] = 0;
/* !CANT BE SCORED AGAIN. */
objcts_1.oflag2[prsvec_1.prso - 1] |= TCHBT;
if (objact_()) {
return ret_val;
}
/* !DID IT HANDLE? */
i = 0;
/* !ASSUME NOTHING TO SAY. */
if (prsvec_1.prsa == vindex_1.dropw) {
i = 528;
}
if (prsvec_1.prsa == vindex_1.throww) {
i = 529;
}
if (i != 0 && play_1.here == rindex_1.mtree) {
i = 659;
}
rspsub_(i, objcts_1.odesc2[prsvec_1.prso - 1]);
return ret_val;
L1000:
rspeak_(527);
/* !DONT HAVE IT. */
return ret_val;
} /* drop_ */
/* PUT- PUT VERB PROCESSOR */
/* DECLARATIONS */
logical put_(flg)
logical flg;
{
/* System generated locals */
logical ret_val;
/* Local variables */
integer j;
integer svi, svo;
ret_val = FALSE_;
if (prsvec_1.prso <= star_1.strbit && prsvec_1.prsi <= star_1.strbit) {
goto L200;
}
if (! objact_()) {
rspeak_(560);
}
/* !STAR */
ret_val = TRUE_;
return ret_val;
L200:
if ((objcts_1.oflag2[prsvec_1.prsi - 1] & OPENBT) != 0 || (
objcts_1.oflag1[prsvec_1.prsi - 1] & DOORBT +
CONTBT) != 0 || (objcts_1.oflag2[prsvec_1.prsi - 1] &
VEHBT) != 0) {
goto L300;
}
rspeak_(561);
/* !CANT PUT IN THAT. */
return ret_val;
L300:
if ((objcts_1.oflag2[prsvec_1.prsi - 1] & OPENBT) != 0) {
goto L400;
}
/* !IS IT OPEN? */
rspeak_(562);
/* !NO, JOKE */
return ret_val;
L400:
if (prsvec_1.prso != prsvec_1.prsi) {
goto L500;
}
/* !INTO ITSELF? */
rspeak_(563);
/* !YES, JOKE. */
return ret_val;
L500:
if (objcts_1.ocan[prsvec_1.prso - 1] != prsvec_1.prsi) {
goto L600;
}
/* !ALREADY INSIDE. */
rspsb2_(564, objcts_1.odesc2[prsvec_1.prso - 1], objcts_1.odesc2[
prsvec_1.prsi - 1]);
ret_val = TRUE_;
return ret_val;
L600:
if (weight_(0, prsvec_1.prso, 0) + weight_(0, prsvec_1.prsi,
0) + objcts_1.osize[prsvec_1.prso - 1] <= objcts_1.ocapac[
prsvec_1.prsi - 1]) {
goto L700;
}
rspeak_(565);
/* !THEN CANT DO IT. */
return ret_val;
/* NOW SEE IF OBJECT (OR ITS CONTAINER) IS IN ROOM */
L700:
j = prsvec_1.prso;
/* !START SEARCH. */
L725:
if (qhere_(j, play_1.here)) {
goto L750;
}
/* !IS IT HERE? */
j = objcts_1.ocan[j - 1];
if (j != 0) {
goto L725;
}
/* !MORE TO DO? */
goto L800;
/* !NO, SCH FAILS. */
L750:
svo = prsvec_1.prso;
/* !SAVE PARSER. */
svi = prsvec_1.prsi;
prsvec_1.prsa = vindex_1.takew;
prsvec_1.prsi = 0;
if (! take_(0)) {
return ret_val;
}
/* !TAKE OBJECT. */
prsvec_1.prsa = vindex_1.putw;
prsvec_1.prso = svo;
prsvec_1.prsi = svi;
goto L1000;
/* NOW SEE IF OBJECT IS ON PERSON. */
L800:
if (objcts_1.ocan[prsvec_1.prso - 1] == 0) {
goto L1000;
}
/* !INSIDE? */
if ((objcts_1.oflag2[objcts_1.ocan[prsvec_1.prso - 1] - 1] &
OPENBT) != 0) {
goto L900;
}
/* !OPEN? */
rspsub_(566, objcts_1.odesc2[prsvec_1.prso - 1]);
/* !LOSE. */
return ret_val;
L900:
scrupd_(objcts_1.ofval[prsvec_1.prso - 1]);
/* !SCORE OBJECT. */
objcts_1.ofval[prsvec_1.prso - 1] = 0;
objcts_1.oflag2[prsvec_1.prso - 1] |= TCHBT;
newsta_(prsvec_1.prso, 0, 0, 0, play_1.winner);
/* !TEMPORARILY ON WINNER. */
L1000:
if (objact_()) {
return ret_val;
}
/* !NO, GIVE OBJECT A SHOT. */
newsta_(prsvec_1.prso, 2, 0, prsvec_1.prsi, 0);
/* !CONTAINED INSIDE. */
ret_val = TRUE_;
return ret_val;
} /* put_ */
/* VALUAC- HANDLES VALUABLES/EVERYTHING */
void valuac_(v)
integer v;
{
/* System generated locals */
integer i__1;
/* Local variables */
logical f;
integer i;
logical f1;
integer savep, saveh;
f = TRUE_;
/* !ASSUME NO ACTIONS. */
i = 579;
/* !ASSUME NOT LIT. */
if (! lit_(play_1.here)) {
goto L4000;
}
/* !IF NOT LIT, PUNT. */
i = 677;
/* !ASSUME WRONG VERB. */
savep = prsvec_1.prso;
/* !SAVE PRSO. */
saveh = play_1.here;
/* !SAVE HERE. */
/* L100: */
if (prsvec_1.prsa != vindex_1.takew) {
goto L1000;
}
/* !TAKE EVERY/VALUA? */
i__1 = objcts_1.olnt;
for (prsvec_1.prso = 1; prsvec_1.prso <= i__1; ++prsvec_1.prso) {
/* !LOOP THRU OBJECTS. */
if (! qhere_(prsvec_1.prso, play_1.here) || (objcts_1.oflag1[
prsvec_1.prso - 1] & VISIBT) == 0 || (
objcts_1.oflag2[prsvec_1.prso - 1] & ACTRBT) != 0 ||
savep == v && objcts_1.otval[prsvec_1.prso - 1] <= 0) {
goto L500;
}
if ((objcts_1.oflag1[prsvec_1.prso - 1] & TAKEBT) == 0 && (
objcts_1.oflag2[prsvec_1.prso - 1] & TRYBT) == 0) {
goto L500;
}
f = FALSE_;
rspsub_(580, objcts_1.odesc2[prsvec_1.prso - 1]);
f1 = take_(1);
if (saveh != play_1.here) {
return;
}
L500:
;
}
goto L3000;
L1000:
if (prsvec_1.prsa != vindex_1.dropw) {
goto L2000;
}
/* !DROP EVERY/VALUA? */
i__1 = objcts_1.olnt;
for (prsvec_1.prso = 1; prsvec_1.prso <= i__1; ++prsvec_1.prso) {
if (objcts_1.oadv[prsvec_1.prso - 1] != play_1.winner || savep == v
&& objcts_1.otval[prsvec_1.prso - 1] <= 0) {
goto L1500;
}
f = FALSE_;
rspsub_(580, objcts_1.odesc2[prsvec_1.prso - 1]);
f1 = drop_(1);
if (saveh != play_1.here) {
return;
}
L1500:
;
}
goto L3000;
L2000:
if (prsvec_1.prsa != vindex_1.putw) {
goto L3000;
}
/* !PUT EVERY/VALUA? */
i__1 = objcts_1.olnt;
for (prsvec_1.prso = 1; prsvec_1.prso <= i__1; ++prsvec_1.prso) {
/* !LOOP THRU OBJECTS. */
if (objcts_1.oadv[prsvec_1.prso - 1] != play_1.winner ||
prsvec_1.prso == prsvec_1.prsi || savep == v &&
objcts_1.otval[prsvec_1.prso - 1] <= 0 || (objcts_1.oflag1[
prsvec_1.prso - 1] & VISIBT) == 0) {
goto L2500;
}
f = FALSE_;
rspsub_(580, objcts_1.odesc2[prsvec_1.prso - 1]);
f1 = put_(1);
if (saveh != play_1.here) {
return;
}
L2500:
;
}
L3000:
i = 581;
if (savep == v) {
i = 582;
}
/* !CHOOSE MESSAGE. */
L4000:
if (f) {
rspeak_(i);
}
/* !IF NOTHING, REPORT. */
} /* valuac_ */